Public Class frmAUInstallCount

    Private Sub frmAUInstallCount_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim msg As protocol
        Dim info() As String
        Dim index As Integer

        gridAUList.Rows.Clear()

        msg.type = protocolType.A_startAUInstallList
        msg.message = frmMain.gridAutoUpdateUpdateList.SelectedRows(0).Tag
        frmMain.net.sendMessage(msg)

        frmMain.net.getMessage(msg)
        While msg.type <> protocolType.SA_endAUInstallList
            If msg.type = protocolType.SA_AUInstallItem And msg.message <> "" Then
                info = Split(msg.message, "::")
                index = gridAUList.Rows.Add
                gridAUList.Rows(index).Cells(0).Value = info(0)
                gridAUList.Rows(index).Cells(1).Value = info(1)
                gridAUList.Rows(index).Cells(2).Value = info(2)
            End If
            msg.type = protocolType.A_getAUInstallItem
            msg.message = ""
            frmMain.net.sendMessage(msg)
            frmMain.net.getMessage(msg)
        End While
    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub
End Class